home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
vclang11.zip
/
CONCURRE.CLN
< prev
next >
Wrap
Text File
|
1990-08-17
|
432b
|
30 lines
program CONCURRENT;
var
SHARED, SEMAPHORE;
procedure PROCESS(LIMIT);
var
LOOP;
begin
LOOP := 1;
while LOOP <= LIMIT DO
begin
write(LIMIT, SHARED);
wait(SEMAPHORE);
SHARED := SHARED + 1;
signal(SEMAPHORE);
LOOP := LOOP+1
end
end;
begin
SEMAPHORE := 1;
SHARED := 0;
cobegin
PROCESS(4);
PROCESS(5+3);
coend;
end.